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OTT STONnEe vite OUTING TaALe 
= “PELE SLINBESO PERSE BRUTE SPS pice sourine Foe Mes 
a REVISION 8 
55 SFILENGME OF “TDLBAO.MPG” ON MPG/KXDP MEDIA 
e] MACY LL: DIDLA? ,DTDLR® /CRE: Sytt/DOC=DTOLA”. PL 
zz DTDLA?.MPG/B: O+DTDLA’ E 
=3 ‘BapER. TAPE: PUNCH DTDLA?.M®G/FILE:ELEV 
oe cocooo* CSECT DLI! 
ms [OSABL GEL 
$3 THE FOLLOWING TABLE IS IN THE STANDARDIZED FORMAT SEGUISED 
re :TO INTERFACE WITH MPG. 
v2 pco000" ooscee L0CZ:_ .WORD OVREND-. ;DEVICE ROUT SIZE IN BYTES 
74 Op0oue* Ooose0 FLAGKD: .WORD 0 DEVICE ROUT FLAGWORD 
7 yocooc DRWAIT= 100990 DEVICE ROUTINE WAIT FLAG 
a! S4ORCO WRsSY¥= 40909 ; WRITE BUSY FLAG 
| 7 626009 Rossy= 2c000 : READ BUSY FLAS 
7$ 060510 ERFLG= IC : BREAK INST FLAG 
3c o50554 CLUVCT= 4 ; CLEAR WRITE VECTOR FLAG 
Bi 09502 CLRVCT= 2 : CLEAR READ VECTOR FLAG 
| B3 pocoo4’ oococe -WORD 8 : INTERFACE WORD 8 1 (NOT USED) 
; 8% 860006° docoos WO ) ;INTERFACE WORD 8 2 (NOT USED) 
|  §8S §05010° ooso96 WORD 0 INTERFACE WOPD 8 3 (NOT USED 
| 88 S0001e° S90900 WORD 0 INTERFACE WOKD 8 4 (NOT USED) 
| $87 Bo00r4* O56650 WORD 9 : INTERFACE WORD # 5 (NOT USED) 
| 88 S008i6° pong WORD 2 sa amy siNTEREACE WORD 8.6 (NOT USED 
| 8S 00020" 90559 SIZE: .WORD QO  ®. F eties TRANSFERRED ZENINAP FL 
SC 8005ee° 000600 ' ERR: WORD oC SERROR ON LAST 7G INSTCATS 
| $3 So55e4" 3 DREGAD: .WORD 175610 FIRST DEVICE REGISTER AOR 
S2 909026" 900300 TVCTAD: .WORD 300 i TEREST VECTOR ADR 
| $3 509030" O0d200 RSUSRO: -WORD 200 SINT PROC STATUS WORD (BF 4) 
| $4 05532" fods00 WEUSRG: <WORD 200 SINT PROC STATUS WORD (BR 4) 
35 00034" 092744 “WORD © HSKEEP-. i HOUSEKEEPING ROUT REL ACR 
| $$ 000036" o0277¢ “WORD = REPORT- :REPO nT T REL AOR 
§7 900040" o00766 “WORD = KILL. KILL our ADK 
$2 Dotowe" Oonedy “WORD © DRTAER-. SATE ERs COUNTER REL ADR 
| 95 800044" do5es0 : “WORD «= TOUTER-: TIME f ERROR ROUT REL ADR 
| 369 900046° Oc0000 CIOBSY: .WORD 0 :1/0 SUSY BRANCH afbk 
| 183 O600so° oo9000 CUPGER: :WORD 0 DEVICE ERROR SRANCH ADP 
Se 900052" 900000 ULIST: .WORD 9 USER MODE PRINT ROUT INE BRANCH QDR 
33 690054" 900000 CLIST: .WORD 0 :CMND_MODE PRINT ROUTINE BRANCH ADR 
154 900056" 9059 BINASC: .WORD 0 CONVERT BINARY SCII ROUT BR ADR 
155 090060" 009009 BTASLZ: .WORD 0 :CONVERT BINARY TO DECIMAL ASCII BR ADR 
15 900062" 900050 CECASC: -WORD 0 ;CONVERT PACKED DECIMAL TO QSCII SR ADR 
| $87 O650e4" 600085 CSYSFU: :WORD C :MPS SYSTEM FLAGNORD ADR 
| 138 $60066° Sosone SETVEC: -WURD 0 :SET INT VECT ROUT BR ADR 
| $88 S05070° Ssédooa CLRYEC: .WORD 6 [CLEAR INT VECTOR ROUT BR A 
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0 :TEST INT VECTOR ROUT BR ADR 
5 fae FROM INT ROUT BF ee 

5 :GET DATA BYTE ROLT BR ADF 

0 :PUT DATA BYTE ROUT BR GOR 
OVREGS-. ADR OF DEVICE REGISTER NAMES 
EYCMDS-. :ADR OF DEVICE FUNCTIONS 
OVPKTE- :ADR OF PACK TBL EXTENSION 
DYMVTE-. -ADR OF MODEL VECTOR TRL EXTEN 
OVCPTE-. ;ADR OF COMPILER TSL_EXTEN. 
Oviwst-. :ADR OF DEV INTERFACE WO SYM TBL 
/ROSR :VALID DEVICE REGISTER NAMES 38 

:THEI® POSITIONS RELATIVE TO 

/REUF -THE DEVICE PEGISTERS BASE ADDRESS 
7XOSR- 

4 

/XSUF 

& 

129,1 :VALID DEVICE FUNCTIONS 

READ-. : FLAG SYTE: 

130, 1 : “BIT 7 = NPR DEV 
WRITE-. : B37 3 = MASSBLS DEY 

160.1 : BT @ = 2@ WORDS FOR aps 
BREAK-. ; [18 BIT ADRS) 
376.0 
cRESET- 

75.0 

‘we 
wart-. 

73,0 
REPUORT- 

72.0 
REPORT- 

71.0 
tatt- 

76.0 
LISTEN- 

£76 
ANSHER- 

66,0 
HANGLP- 
365.0 
SEND- 
364 
RECY- 
363.0 
RORON- 
362.0 
RORGFF- 


177777 ;TABLE TERMINATOR 















OTOLAB.P12 STANDARD DEVICE ROUTINE TABLE 


4 COMPILER TABLE EXTENSION 
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1g mes 051203 O51505 052105 OVPKTE: .WSCII /CRESET/ ‘PACK TABLE EXTENSION 

167 O000e56’ 3°76 650 “BYTE 375.0 

188 O47516 O40Se° S211! "ASCII “NOWAIT/ 

189 soot 375 BYTE 

170 900270° c20040 osose: OS2111 “ASCII 7 WAIT/ ‘ 

171 000878’ 374 599 “BYTE 374,0 

!72 900300° OS2123 OS2!01 osises -ASCII, /STATUS/ 

173 000308’ 373 0 “BYTE 373,0 

174 900310" 047503 O4712e5 051524 SASCII §/COUNTS/ 

i7S 00318" 372 -BYTE 37,0 

176 000320" 020040 o40503 o4e114 ASCII 7 CALL 

177 090326" 371 “BYTE 371,0 

i178 000330" 044514 OS2le3 47105 “ASCII /LISTEN/ 

78 900336" 009 “BYTE 370,9 

186 990346" O47101 oOS3523 951105 "ASCII. 7ANSWER/ 

18! 900346° 367 090 -BYTE 367 

182 90035’ O40S10 043516 oOso1es “ASCII 7 HANGUP/ 

183 990356" 5 coo BYTE 366,90 

a4 360° 020040 o42523 O42116 -ASCII 7 SEND 

185 900366' 365 090 -BYTE 365.0 

186 000370" 020040 o42522 053103 "ASCII 7 RECVZ 

is? 900376" 64 5 "BYTE 364.0 

186 900490" os:04¢ 051104 o47117 “ASCII 7 RORON- 

188 900406’ 263 ‘009 “BYTE 363,9 

1390 909410" O42122 O47S22 043106 “ASCII /ROROFF/ 

13 000416" 362 falale ‘BYTE 362.0 

43 

183 900420" 09037 on0832 DVMYTE: .WORD 376,LCRST-LOCZ sMODEL VECTOR TABLE EXTENSION 
| 784 999434° 990375 donee -WORD 375; LNWAIT-LOCZ 

195 C0430" 000374 O00632 HOR 374’ LWAIT-LOCc 

196 909434" 900373 0032 WORD 373; LSTATS-LOCZ 

187 900440" 909372 000632 WORD  372.LCOUNT-LOC2 
| 198 goo444 DODR7! OoDE32 “WORD 371 LCALL-LOC? 

198 oc04so" 909370 990635 “WORD 370° LLISEN-LOCZ 

oo4e4 67 o000632 "WORD 7? LONSWR-LOC 

| N00460" 900266 999632 .WORD 366,LHNGUP-LOCZ 
| naoye4" 800365 o00622 WORD  365;LSEND-LOCZ 
090470" 900364 990632 “WORD bY, LRECV-LOcz 
999474" 960363 Scde3e2 “WORD  363;LRDRON-LOCZ 
| foosoo’ 909362 900632 ‘WORD 362: tROROE <Loe5 
| 
| 
; 


TOUTE rO TOTO rOrorurunofruruluroroururu ror tue. 
TUT) 0-0 0b 08 20 (QOOMOMUIOOM 
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oc 
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wn 
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ososo4’ = 003 376 AvCPTE: .BYTE 2,376 ;CONTROL RESET 
004537 occodiec “WORD ©. 4837.10. 

000512" 903 375 "BYTE 3,378 :NO WAIT 
960514’ 904537 ocoOoo1= . (WORD 4837.10. 
600520’ 003 374 “BYTE 3,374 sWAIT 
090522" 004537 occdie "WORD 4637.10. 
goose’ O04 37 “BYTE 4,37 sSTATUS 
000535" 04537 coogi 001002 “WORD 437.10... 1002 ’ 
990s6’ 004 “BYTE 4,372 ; COUNTS 
609549" 004537 ooobi 001901 “WORD 4837 ,10., 1002 
asos4e’ “BYTE 37! CALL 

1 S0d5s6° noueae noo "WORD 333° 10. 
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*eFanparo pews INE Ne 
903 370 BYTE 3,370 LISTEN 
oo¥ss S00gg WORD 4637, 10. 
3 ? BYTE 3,36? ; ANSWER 
904537 onodie WORD 4837.10 
003 366 BYTE 3,366 ; HANGUP 
004537 000012 “WORD 4837.10 
als 365 “BYTE 366 ; SEND 
004537 ocod12 WORD 4837.10 
50 4 BYTE 364 :RECEIVE 
no4s 3: oo0gi2 WORD 4§37,19 
ala BYTE 263 :READER ON 
904537 ooobi2 WORD 4837.10 
6 365 BYTE 3,362 :READER OFF 
904837 0001 WORD 4637.10 
177777 WORD 177797 : TABLE END : 
DEVICE INTERFACE WORD SYMBOL TABLE 
177777 AVIWST: .WORD 177777 : TABLE END 
: MODEL STATEMENT TABLE EXTENSION 
CORST: 
LNWAIT: 
LWAIT: 
LSTATS: 
LOOUNT: 
LCALL: 
LLISEN: 
LANSWR: 
LHNGUP 
LSEND: 
LRECY: 
CRORON: 
p00 LROROF: .8YTE Oo 
co0634" EVEN 
000634" HSKPST= . 
AO d634" ISTAT= sSTORAGE FOR DEV REGS AT INT 
* o9cgo0 ROSR: oRD «OO 
* 900990 REUF:  :WORD 0 
ooocdco ¥OSR: ORD «OO 
090009 XBUF:  .WORD 0 
ocoso4 CSTAT: .BLKW 4 ;DEV REG CURRENT VALUE STORAGE 
900000 BYRD: .WORD OQ :BYTES READ COUNT 
ooco00 ORD 9 
90009 BYWR:  :WORD 0 sBYTES WRITTEN COUNT 
o02000 ORD 0 
o9cc00 PDCNT: :WORD 0 s READ CMND_ COLINT 
69000 WRCNT: iWORD © !WRITE CMND COUNT 
909000 BKCNT: .WORD 0 “BREAK CMND COUNT 
' pooead MISCNT: .WORD :MISC. CMND COUNT (CRESET, 
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DTOLAB. P11 STANDARD DEVICE ROUTINE TABLE 
2? CAL LISTEN, ANSWER HANGUP, SEND, RECY) 
$53 ooog74 pon000 RICNT: .WORD 9 7 ine Bb” THTERROP coun 
289 900676" 900000 WIGNT: WORD 9 SWRITE INT ERRUPT C 
281 900709' 900090 OVRRUN: :WORD 0 OVERRUN ERRORS COUNT 
282 900702" 900099 FRAMER: -WORD 9 SFRAMING ERRORS COUNT 
ess go0704" 009900 PARERR: :WORD 0 \ :PARITY ERRORS COUNT 
2384 900706" 900000 DATAER: :WORD 0 ;DATA ERROR. COUNT 
ge 000710" Sa000 TOECNT: ‘WORD © ® OF ENTRIES INTO T/0 ERROR ROUT 
3° oog712* so0000 FLAG: .WORD 0 A -FLAGHORD STORAGE 
383 k ' 
z0 ogo7 14" HSKPEN= . 
23 99000 XXXX2 0 ;VALUE TO BE TAILORED BY DEY ROUT 
234 o90001 MMVERS 1 : SYSTEM FLGHD B17 DEF. 
Ess 120000 PSCONS= 120090 SINT SRVC VIRT PAGE BASE 
3Sé elajalalats UstTPS= = . :MTPS INST LEGAL FLAG 
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009177 
046104 


002714 


00e74e2 


000010 
003202 


ooo04e 
ooe44e 
002672 
177046 
030461 
047505 
020116 


176772 
000100 


000120 
003216 
001026 


903216 
009776 


001622 
17@662 


900100 


027511 


009904 


176706 


000994 
176654 


002372 


UTINE FOR MPG 


TOUTER: INC TOECNT 

CMP TOECNT, #8. 

SEQ 2$ 

RTS RS 
23: JSR RO, SAVREG 

JSR PC’ SUPTAD 

CLR RY’ 

BIC #WTYIOT, (R3) 

JSR RS, PRINT 

“WORD  TOEMSG-. 

"WORD 19. 

ISR SKILL 

JSR PC: ERDIRG 

JSR RO RESREG 
TOUTEX: MOV (SP)+,R5 

IMP JCUPGER 
TOEMSG: .ASCII ‘DLL1 TIMEOUT ON 179° 

EVEN 

sKILL USER PROGRAM ROUTINE 
KILL: MOV DREGAD, Re 

BIT #100, 4iR2) 

BNE CWRINT 
TSRINT: BIT #100, (R2) 

BEG KILLEX 

ISR RS TRVECT 

BR CWRINT 

JSR RS HANGUP 

BIC (Re) 

BIC #aDBSY FLAGWD 

ISR PC, RRIATV 
CWRINT: JSR RS’ TWVECT 

BR TSRINT 

JSR RS TANGUP 

BIC #100, 4(R2) 

BIC #WRBSY , FLAG 

JSR PC RWIATYV 

BR TSRINT 
KILLEX: CLR RR 

RTS S 

:READ COMMAND HANDLER 
READ: MOV RS, STMNT 

SUB #4’ STMNT 

MOY DREGAD, R4 

BIT #100, (RY) 


MACY11 27(732) 


~SBTTL DL11 FUNCTION ROUTINES 


; TIMEGUT ERROR HANDLER 


24-SEP-75 14:09 PAGE 4 


;INCR TIME sf ERROR COUNT 
: EXCEEDED : TIMEOUTS? 
:YES CONTINUE 


NO - RETURN 
i SAVE ge 
P TBL ADR TO R3 


;PRINT TIMEOUT ERR MSG 


L THE PROGRAM 

PLAY STATUS & STMNT & 
TORE REGISTERS 
DISPLAY DEVICE REGS 


Ww 


ney 


;GET DEV REG AOR 
iXMIT ‘<i EBL SET? 


; YES-CLEAR 

sRECY INT SET? 

TEST READ INT VECTOR 

; BRA’ NOT ME 

RESET PO 1 LINE 

T EBL 

eR aN FLAG WO 
NFO 


a EBL 
WRITE BSY IN FLAG WD 
RESET INT VECTOR INFO 


;CLEAR ERROR INDICATOR 
; RETURN 


;SAVE RS 

FOR STNNT # sa te 
:DEV_REG ADDR T 

;TEST RECY iNT Fel 
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176654 
020000 
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pitts, 


o00200 
ooooc4 
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000769 
000756 


000010 


000390 
000019 


009010 
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176434 
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176600 
000012 
000006 


000002 


000094 


ooccoo 
176456 


000009 


176432 
176422 
COe1S4 
000604 


176360 


sac0e 


oooage 
oo0004 









SEQ C040 



















BEQ SRDBSY s CONTINUE IF NOT SET 
ISR Re pc 1OBSY . OTHERWISE RELEASE CONTROL 
SROBSY: BIS #ROBSY , FLAGWD :SET READ BUSY 
MOV IVCTAD: 19% “INT VECTOR ADDR TO CALL 
MOV RBUSRQ, 20$ “ALSO BUS PRIORITY 
JSR RS, aSETVEC :GO SET THE VECTOR 
10$: .WORD = XXXX 
208: -WORD  XXXX 
































-WORD = RDINT-. 
GTPTBS: JSR PC. SUPTAD ;GET P TBL BASE IN 83 
CLR ERR :CLEAR ERROR INDICATOR 
INC ROCNT li :INCR READ CMD COUNT 
BIT #SPOPER , POPSW(R3) :TEST MAINT BIT IN OPSW 
BEQ ROMNCL 
BIS -_-#4, ¥{R4) ; ;SET RCSR BIT TO SAME STATE 
SE ROMNST 
ROMNCL: SIC #4, (RY) 
ROMNST: MOV (RS)+,RO :GET ADDRESS 
MOV (R5)+"RADDR 
MOV RO)+, RBYTES :BYTE COUNT AND 
MOV (R5)+°RO ‘LINE NBR FROM CALL 
__ BIS auT4IOT PFLGWD(R3) :SET WAIT FOR 1/0 TERM 
SETRSE: BIS #100, (R4) -SET RECEIVE INT ENABLE 
BIT IORUALT, FLAGND :TEST DEV ROUT NOWA 
SNE !BRANCH IF SET 
IMP Bee ‘OTHERWISE WAIT 
RDNOWT: BIC HWITYIOT, PFLGWD(R3) :CLEAR WAIT WPOR 1/0 TERM 
RTS RS RETURN INLINE 
sWRITE AND BREAK COMMAND HANDLER 
WRITE: BIC ¥BRFLG, FLAGWD ;CLEAR BREAK FLAG 
BREAK: BIS "BRPLC FLAGWD s $7 BREAK FLAG 
XMIT: MOV RS, STMNT RS 
SUB #4’ STMNT ‘FOR STMNT & REFERENCE 
MOV DREGAD, R4 :DEV REG ADDR 
BIT #100, 4tR4) s TEST XMIT INT eer 
BEQ SETBSY :CONTINUE IF NOT SET 
ISR Rs aC10BSY OTHERWISE RELEASE CONTROL 
MSTBSY: BIS #URBSY , FLAGHD :SET WRITE BUSY 
MOV TVCTAD, 10$ INT VECTOR RDOR TO CALL 
ADD #4, 10$' :ADJUST FOR WRITE INT 
MOV uBdisRe 20% “ALSO PASS BUS PRIORITY 
. ISR 5. OSE TVEC :G0 SET THE VECTOR 
108: WORD ak 
20: “WORD OX 
“WORD WRINT-. 
ISR PC. SUPTAD :GET P TBL BASE IN R3 
CLR ERR :CLEAR ERROR INDICATOR 
BIT WSPOPER, .POPSW(R3) :TEST MAINT SIT IN OPSW 
BIS 84, 4(R4) :SET XCSR BIT TO SAME STATE 
BR WRMNST 
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460 092000" 
461 O02006’ 
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DL11 DEVICE RO 
TINES 


DL12 FUNCTION ROU 


042714 


* 000205 


eG’ 042767 


000715 


052767 
009703 


009004 


cdcs4e 
000540 


000001 
000010 


000001 
177112 


177102 


100000 
900010 


100000 
176172 
000109 
000100 
oc000e 
o02406 
001044 
pono te 
000094 


002406 


000334 


000091 
001734 
020000 


001342 
178056 
176050 


100900 


000004 
176240 


000004 


000099 
000904 
17617 


000900 


176154 


occeo4 
176124 


175106 
178974 


176052 


176056 
ooo00e 


175774 


WRMNCL: 
WRMNST: 


IWC; 
SETTSE: 


RETURN: 


WAIT: 


TSTIEB: 


TRMTST: 


108: 


ERRTST: 


ERREXT: 
RELEAS: 


NOWAIT: 





UTINE FOR MPG 
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ws (RY) 
+,RO 

(Re)? WADDR 

(RS) +; WBYTES 

(RS) + 480 

raRFL, PLAGHD 

i 4(RY) 

BKENT 

SE TISE 

WRCNT 

#WT4IOT, PFLGWD(R3) 

#100, 4(R4) 

#DRUAIT , FLAGHD 

BUTHTOT , PFLGUD CR) 


;WAIT COMMAND HANDLER 


;NOWAIT 
BIS 
BR 





#DRWAIT, FLAGWD 
DREGAD, RY 

#100 con 
RELEAS 

#100, 4(R4) 
RELEAS 
#CLRVCT, FLAGHD 
RS, TRVECT 

10$ 

PC, RRINTV 
#CLRVCT, FLAGHD 
#CLUVCT : FLAGHD 
ERRTST 

RS. TWVECT 
ERRTST 

PC, RWINTV 
#CLWVCT, FLAGHD 
ERRFLG 

RETURN 

PC’ SUPTAD 
#PRONER, POPSW(R3) 
ERREXT 

RY 

ERRRPT 


JCUPGER 
RS, ICIOBSY 
TSTIEB 


COMMAND HANDLER 
#ORWAIT, FLAGND 
RETURN 





;SET NOWAIT FLAG 


;GET ADDRESS 


;BYTE COUNT AND 
LINE NBR FROM CALL 
:CLEAR BREAK BIT 

; TEST BREAK FLAG 


;SET BREAK IF FLG =1 
INCREMENT BREAK CNT 


5 INERETS YT WRITE CNT 
:SET WAIT FOR i TERM 


ST_INT EBL 
CLEAR WAIT FOR 1/0 TERM 
RETURN INLINE 


:CLEAR DEV ROUT NOWAIT 
: POINT eA AT REG ADDR 

: TEST T 

: IF bet “RELEASE CONTROL 
:TEST XMIT INT 

:IF SET, RELEASE CONTROL 
;TEST IF VECTOR CLR REQD 


fim IF _NOT 

; TEST +g tae bi a 
:BRANCH IF NOT ME 

; G0 RESET THE VECTOR 


URN IF NONE 
. SET ERROR INDICATOR 


;TEST DONT PRINT ON ERR BIT 
:EXIT IF SET 


;OTHERWISE RELEASE CONTROL 
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OTDOLAS.P1! DL11 FUNCTION ROUTINES 

ve sCRESET COMMAND HANDLER 

: 902010" 18704 176010 CRESET: HOV DREGAD, RM i coh sak ian eel 

: 3 

Me Beste. BReBey 20004 KR GRR, ‘ : 

ug3 002922" COSOb7 74 CLR ERR CLEAR ERROR INDICATOR 

465 O02026' c00205 RTS RS : RETURN 


es oe ee 


MBINDES 22 -OTDLAE i VICE ROUTINE FOR MPG MACYI1 E7(732) 24-SEP-76 14:09 PAGE 4-6 


s:WRITE INTERRUPT HANDLER 





S53) 
Sse O0e2"2" CO4D6? 09:354 WRINT: JSS RO, SAVREG sSAVE REGISTERS 
SS3 OCe276° OO45E° O0l4ee csr RS,STSTAT ;STORE DEVICE SEG CONTENTS 
ss4 0e20e" 176332 .WORD ISTAT- 
S35 OUe304" 00Se6; 178366 INC WIC ;INCR WRITE INTEBRLUET CNT 
SS& Desl0’ O76? = O01270 Ise PC SUFTAD :SET INTERNGL PTES 
S57 O023i4° OOSTE: fea TST WEYTES TEST SYTE COUNT 
OO Se ;BRANCH IF 


Om ») 

fe 

7] 

oe 

. - 
pd 
™ 

tw 

’ 

Ls) 

= 

-4 

m 

az 

=z 


4 

SS 320 

S55 S02352° 91675 MOV PCR 

$25 00234" 062753 177736 DD #uikDDR-. 83 

Eis Doesee’ 106733 Tere Rika. 

Hrs Essaagy DOG? 7se3e 35k PC DCETEYT 

Se: ENT: Ligue O00ce ee Ta 

Soi S0ease° O62751 178314 RD wBYuRs2-. 81 

58? 902352" 060711 90900: a0D al (RL) INCR BYTES WRITTEN BY 1 
| 58 902356" 90554! ae want) - SOUNT 

569 902360" 905313 DEC (RZ) sDECREMENT BYTE COUNT 
| $20 908362" 00Se43 INC = -(R3) INCREMENT ADDRESS 

$7] O0cse4’ OOM3E ca INTEXT :RETURN FROM INTESRUPT 
| S72 002366" (e764 009001 COCCOy WTERM: BIC 81.49.74) CLEAR BREGK BIT 
| §73 Doesvar Oue7e7 040009 175400 Bre aWhBSY | FLAGKD ;RESET WRITE BUSY 

Boo eevee: Overey OCICS | SOCoSS Sie 8100 HIBS) TRESET XMIT INT EBL 
| E7E SS415+ 52508] i7eesc abd = wBYWRS2-. RI 

S77 SOS4IE* O111E7 75376 MOV (Rl), SIZE SUPDATE ACTUAL BYTES xFERRED 
| re 55suse- 904767 501556 ysR = C_ SUPTED 
| §7§ 65456" 32734 900100 BIT 8100, :R4) RECEIVE INT STILL UP 7 
| §80 Ode43e° 30100 ti ae BNE GVECKO Lea :YES = CONTINUE si 
| SE: Ooeua4° O4e763 g0001Io so0ccCd )=68=— tC BWTYIOTPFLSHD(R2) ihO_-_ RESET WAIT FOR 107 
| $8e Wee’ 0Se76? OO000H 175332 SVECAD: BIS SCLWVOT FLAGAO sSET CLR VECT REQUEST 
| $3 Ssesso: 554067 SOLzIz INTExT: ISR = - RE RESSEG rRESTORE REGISTERS 
| $85 SEEsES* Tir T5515 TE QRININT PRETUEN FEIM INTEESUST 





) 
i 
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te > 

2 
ao 
-_ 


t 


;RERO INTERRUPT HANOLER 
sREAD INTERRUPT HANDLER 


COVE 


DN Ea ba ae Ber 


wo 
ve) 


8 


Mis At M AAPA aTt aati] 
thts 53 
Jtue-€> 


‘2 
Wace» D 


be 
<4 FIM «r C9 


tad Lad 
GRR 
to 


i 
m 
OWI 69-4 OD 


er ey ie | 


DUD C)>—« CO CIC > 


20-0 «6 
“CLO IOUS ome. 
ap 4m-0H 
CICe-4 ZI Ne40 
Qe 


py nd S beg Lt +0048 
oon 


x 


mon 


i a ee 


POP HON OP OP OP Ch OP Ce CP OP OP Or Or Cor Or Cra ar 


furuful 


ah 


. Cr 
BuTSiOT, PFLGWD (R3) 
a0 en is POPSW R32) 


bait eT, FLAGND 


+4 2" o-4 


«.wwomme 
te . 
Duwi AO aw 


forth pet th wt et thet, 


CP CPC CPSC CPT CECH CT! CCTs 
“CRO SOPOT COU 


es ee ae ee ee 


SAVE REGISTESS 
sSTORE DEVICE REG CONTENTS 


;SET INTERNA PrRS. 
:GET Data FROM SELF 
;SAVE IN Re 


;INCR BYTES READ SY i 


; TEST FOR ge ERSOR 
: BRANCH IF 
: OTHERWISE TCR COUNT 


SOTHERWISE INCR COUNT 
[REMEMBER FRAMING ERSOS 
ITEST FOR OVERRUN ERROR 


reads AINCR ¢ COUNT 


owe 


TREMEMBER OVERRUN ERROR 


T BYTE IN MEMORY 
THOSEMENT ADDRESS 
‘DECREMENT BYTE CCUNT 
:TERMINATE IF SC ERC 


sRESET READ BUSY 
RESET READ INT e3t 





sUPDATE ACTUAL BYTES XFERRED 


tees DONT cRes g ar SIT 
:BRANCH IF SET 
:SET SLA RD VECT REQUEST 








a 








ae eee ee 
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TOLA= DL] DEVICE ROUTINE FOR MPG MACYI1 @°(732) 24-SEP-7& 14:09 PAGE 4-8 SEG CUM? 
DULL FUNCTION ROUTINES 


RS, ICLRVEC 
XXXX 


JSR 
O° OCO00 108: WORD 
732° 000207 RTS e¢ 

O02"54° 016767 275555 300012 RWINTV: MOV IVCTAO. 10$ ;RESET WRITE VECT SER 
Obes" Dbe7b: OO0R94 COCCO4 att 84.10 
Verso” SUS. SU. J! RS, aLRVEC 
eA37°7u° o9ence ial: 3 ay -~ XYKY 
~=— memes RSSS55 iat Paap - ec 

= = eee ‘ is i} 











DEVICE ROUTINE FOR MPG = MACY11 27(732) 24-SEP-76 14:03 PAGE = 360 0048 
> ROUTINES 
.SBTTL DL11 SUPPORT ROUTINES 
;DEVICE ROUTINE HOUSEKEEPING 
JSR RS, HSKEEP S/R CALL ¢ 
| 5 = DC HsKP PEP OPSW 
B55 Site 0 OR 1 . 3 oe oe 
5 2cFebOOE Bf 
g62 iBEsTRovs O, 
$3 - SKEEF: TST sUNCONDITIONALLY DO HSKP? 
pee SER: ELS pret. Big a a a ae 
Fee ES3004 ; pes pooons BIT «aHSKPEP, R2 iPS SPECIFY EACH PASS HSi! 
Ree Riot os & AY Bearer io soe 
PS eee! Oe ee seen eit ST-. 
poy pray, pees iene RETO ETP : amos at 
fe ewe Sue wslis ween a aa Ge oHSKE BI | VESSHE:! 4 "£5 
71 993524" 506026 208: GR RO THSKP ALL ARY 3 
roe Deans. S5Pz2 BNE 2S & 
Es5 DoSg3:+ ESAEce 30: RTS RE sEXIT IN-LINE 
E75 
Foe ;DLL1 REPORT ROUTI! 
£78 YOR RS RESIS S/R CALL 
2°75 ove go dhe = ABR 
ess :.HORD FLGWD Sat See eer 
at Sit 9 = PROG STMNT cal 
gS? Bit i = D9 STATUS REPCRT 
PEs BIT O = DO COUNTS REPCRT 
£3 AS =) e Vv -f R t AG 
| EER cosoou oosoer gnge3e PERORT: CR AROREY :CLR ROBREVIRTED RET FLAG 
| $87 03040" 904967 O00606 gor RUS SaRES DISPLAYING CHTS BT END OF 
| BRE Beaten. Barats 177776 BNE gS oo Oe, Aen 
| EER posses: SceSte MOY BC, 8 :SET UP BOR OF NFS 
| Bar Bases. REESE open ABO 0 aBYRD-. RO : ie 
| BEL BOBO) ere 3 may 814. _Ri ;GET_# OF CNT WORDS 
| Pag peeeeOy Oie7Gh O00! os. tet RODS :THIS ONT WORD = O° 
52. tt. 5 cy igi s oN ¢ sY,N- 
| ete! opie Ree CRL :DECR WORD CNT 
| Be Deore aw: BNE BS SCKED ALL WORDS? <Y,N-28) 
| 698 QOcc7= $1374 BR BVREX 39 TQ Ext xu CATS ARE O°S 
ee eee ee o0ed2 93: 75R PC, SUPTAD SET uP eros TBL AOR IN RG 
| Pe eects, Race, COCeOe ro MOV (RS) +, RY SET — 
| 58h Besicge SASS) onnone BIT swe RG" :B51No te bo STATUS DISPLAY” 
SET Sesto: 3ee vA peo «108 :Y,N=108 wank 
| 955 Bostte: ssce? pocens JSR RE STSTAT Sb /STORE STATUS REG'S 
fw ~ - - ~ 
j 753 903116" 4304 i ~ WORD CSTAT-. “DISPLAY DEY STATUS 
«Fee SRSE’ agecpe 000006 8: Hosen VARESE Oe 
| 7BE DOzi2e’ O04s67 oo1o24 Jon, Rey CRINT sTSSUE 
| 73? DOaiser OO1e33 Tins. 
| 73e B05134" Goco1s 








ty Se DTOLA-5 


OTDLAS. 


0+ b+ bb pe 


OWO YOU Glu wo 


Fue 0 + o-+9-- be 


~§~I~9-9- 93d 


Pil 


265" 
Sosse6" 
003272’ 


903274" 
003276" 


Oc0000 


001260 
6 


OLi1 SEVIC 
DLI1 SUPPORT BAUTINE: 


000634 
001006 


OC061§ 
000001 
00001§ 
175456 
099079 
000012 
000432 
174630 


CCO43e2 


ROUTINE FOR MPG 


MACY] 271732) 


JSR RS, OISPST 


WORD -, 
ISR PRINT 
.WORD = CURMSG- 
.WORD 10. 
JSR AS DISPST 
\WORD cStaT 
DISCNT: BIT #] i" 
5—Q RPTEND 
MOV #14. RO 
MOV Pc.Ri 
ADD #BYRO-. .R} 
MOV ¢.Re 
ADD #REPTBL-. Re 
RPTLP: MOV (R2)+, RPTBAS 
JSR RO. SAVRES 
MOV (RID RO 
ISR RS, SINASC 
RPTBAS: WORD KX 
ISR RO RESREG 
TST 1+ 
DEC 9 
BNE TLP 
ISR RS PRINT 
WORD tsmc- 


RPTEND: JSR RS 
WORD RENDMG-. 


LWORD -12. 

DYREX: ISR RO. RESREG 
TST (RS)¢4 
RTS RS 

ABBREY: .WORD 0 

REPTBL: .WORD BCMRD-RPTSAS 


"WORD BCMRD+6-RPTBAS 


WORD BCMWR-RPTBA 
WORD BCMWR+6-RPTBAS 
WORD CMDCRO-RPTSAS 
WORD CMDCWR-RPTSAS 
WORD MDCBK-RPTBAS 
WORD CMDCMS-RPTBAS 
WORD RDINMS-RPTBAS 
WORD WRINMS-RPTBAS 


“WORD ERCOVR-RPTBAS 


ERCDTA-RPTBAS 


24-SEP-76 14:09 PAGE S-1 


360 DISPLAY STATUS AT LAST INT 
;ISSUE ’CURRENTLY’ MS& 


:G0 DISPLAY CURRENT STATUS 
; DISPLAY COUNTS? 
-RPTEND 
tet UP # OF WORDS 
‘SET uP AoR oF CNTs 
-SET UP TBL ADR 
sMOV MSG ADR ig S/R LINKAGE 


Paes tet 
‘P5NVERT IT TO ASCII 


Reon REG*S 
:POINT AT NXT CNT 

:DONE | ALL WORDS? 
N-RPT r 


ity ISSUE COUNTS MSG 
sISSUE “END OF REPCRT” MSG 


;RESTORE REGISTER 
‘SET UP RETURN PO 
sEXIT IN-LINE 


S 
INT 





3~-3~3~3~)-3- 


Be 
2 
; 
3 
2 
) 
8 
: 
: 
5 
1 


SISO K OKO WoO 


oe bat | 


e-*+0-< 


mr eo 


co coco € 


003520" 


003522’ 
002530’ 
003536’ 
003544’ 


903546’ 





905067 
020207 


020001 
020002 


054130 


cocod4 


174510 


- 000822 
000014 


000144 


176676 
oos0cs 
ooo00s 
009014 


000530 


000340 
cood22 
090004 


DOO44E 


ococs4 


00997 


o42449 
t20072 


020124 


054130 


OUTINE FOR MPG 


;DL11 ERROR REPORT ROUTINE 


ERRRPT: JSR 


ERRDIS: MOV 
ADD aFiISCRE 


PC, ERROIS 
acURGER 


MOV 
690 ERCOTB-. , RO 
is: ° TSfB (RO) 
BEO ERTBEN 
ITB  (RO)4, ERRFLG 
NE 3$ 
23 ADD 85, RC 
BR 18 
2$ MOV 
5g MOVE NY: (RLi¢ 
INC ERMeCT 
DEC Re 
BNE 3 
BR 13 
ERTBEN: JSR RS, PRINT 


“WORD = EMSGHD-. 
EXMBCT: .WORD __ le. 


ERDIRG: ISR RS, DISPST 
ERRSNM: MOV PSRCST(R2) ,RO 
108: MOVE = (RO) RI 
CMP gcRo} , STMNT 
BEQ 205 
ADD R1.RO 
BR 10$ 
208: TST (RO)+ 
“MOV C 


JSR RS JDECASC 


MOV 130040, STHNUM+4 


. WORD ee anaae 
“WORD == 14. 
CLR ERRFLG 
RTS PC 
ERCOTS: .ASCIY <O0l>/” PAR 
SASCII «<002>7 FRM 
SASCII «(9047 OVRY 
“BYTE 0 
“EVEN 
STMNT: .WORD 0 
EMSGHD: .ASCII /DLL1 ERROR: / 


EMSGBF: .BLKB 
STMNMG: .ASCIT 


STMNUM: .ASCIT 


40. 
/STMNT & » 
AXKAX KX ¢ 


em re ee eee ee 


MACYI1 27732) 24-SEP-76 


MOV ERMBET 
He fab” 


14:09 PAGE 5-2 369 0080 


;POINT R1 AT ERR MSS 
;POINT RO AT ERR MSG TEL 


;BRANCH IF RO AT TBL END 
i Tea FOR gE aa ERR 
;BRANCH IF FOUN 


;MOVE MSG CODE TO ERR MSG 
;BUMP BYTE COUNT 


:CHECK IF MORE 
;PRINT ERROR MSG 


;DISPLAY DEVICE REGS 
;GET er OF SRC STMNTS 
;SAVE STMNT LENGT 

; ERROR SeCURT ON THIS STMNT? 
>YES - BRANCH 

POINT AT NEXT STATEMENT 
>GO CK NEXT STMNT 

:SET UP ADR OF STMNT # CATA 

:SET UP DATA OUTPUT ADDR 

CONVERT IT TO ASCII 

;SET 


€ LOW DIGITS To 
; ISSUE ST MNT i MSG 


SPACES 


;CLEAR ERROR FLAG 


;SAVED RS FOR STMNT 8 


lM tea auto eae) 


SU 


i 





g03652" 010146 
003654" 010246 
003656" 010346 
D03660" O1044e 
003662" O10S46 
003664" 310007 


003656" 005726 


weve! weewwe 


g03756° 862703 174072 


42 9037 
e4s 003722" 000207 


858 003724 016701 174074 
853 003730’ O4e711 002000 
] $00 
8&e 903740’ O1e746 000004 
S64 003746’ 062702 174154 
65 00 O11 
G66 003754’ 066701 174044 
3760 


O11 
| BES 003762" Ob2702 ococdE 
| B68 503766" O0S3i16 


DL11 DEVICE ROUTINE 
ROUTINES: FOR DL11 DEVICE 


om ee ae +e + - ee 


SAVREG: 


RESREG: 


SUPTAD: 


STSTAT: 


FOR MPG MACYL1 27(732) 24-SEP-76 14:09 PAGE & 
ROUTINE 


~SBTTL SUBROUTINES FOR OL11 DEVICE ROUTINE 
;SAVE REGISTERS RO THRU RS 


; JSR RO, SAVREG S/R CALL 


MOV R1,-(SP) ;SAVE RO THRU RS 
MOV Ro’ -(SP) 
MOV R3,-(SP) 
MOV RY, -(SP) 
MOV RS,-(SP) 
MOV RO, Po sEXIT IN-LINE 
>RESTORE REGISTERS RO THRU RS 
; JSR RO,RESREG S/R CALL 
TST (SP)+ sRESTORE RY THRU RO 
MOV (SP)+,RS 
MOV (SP)+,84 


sEXIT IN-LINE 


:SET PROGRAM'S PROG TASLE ADR IN R3 
; JSR PC ,SUPTAD S/R CALL 


MOV PC,R3 :SET UP LOCATION ZERO ADR 
ADD #LOC2-. ,R3 
Sus -2(R3) 83 :SUBTRACT PROG TBL LENGTH 
MCV DREGAD, RY “PUT DEY REG ADR IN 
RTS PC :EXIT IN-LINE 
:STORE DEVICE'S STATUS REGISTERS 
:JSR «RS. STSTAT i 
: WORD DR-. REL ef SRAGE ADR 
-DESTROYS RO,Ri.R2 
MOY DREGAD,R1 
src #2000, {R1) ;SELECT TCR 
MOV RS_RO GET REL STORAGE ADR § MAKE 
ADD (RS)+ ‘IT ABSOLUTE 


MOV BDVREGE-DVREGS/6, -(SP) ;GET 8 oF REG'S TO STORE 


MOV PC, Re !GET ADR OF IST REG DISPLACEMENT 
ADD aDURE GSH. R2 

MOY ;GET REG DISPLACEMENT 

ADD oRECARS R! :ADD IN REG’S BASE ADR 

MOV (RI), (RO}+ :STORE REGISTER VALU 

ADO #8 RE :POINT AT NXT DISPLACEMENT 

DEC (SP) :DECR REG CN 


ea | ee Se 








MAINOEC-11-DT0L8 
DTOLAB.Pil 


003776" 


oo4064" 


094066’ 


0.0.0. 00 0ODOWW OWWOWW 
TUPUTUTUN &-- eb 0b 
LW -OWONTUCWM--Ow 

oO 

Oo 

<= 

_— 

iat) 

& 


-B 
SUBROUT 
091379 


FG BRGSBS 


Ji0$Se 


000205 


012767 


000207 


Dol 
INES F 


174112 


177620 
17401s 
000115 


177610 


OCOd22 
000035 
000620 
173746 
000334 
000026 
177400 
173714 


000006 


000056 


000326 
000920 


OISFST: 


108: 


DISUNM: 


DISUIV: 


DISUPR: 


DISUML: ; 


MACYL1 271732) 


24-SEP-76 14:09 PAGE 6-1 


SNE 10$ DONE ALL?_(Y,N-10$) 
1ST iar ict GN UP THE’ STACK 
RTS 5 ‘EXIT IN-LIN 
: TAILOR STATUS MSG & PRINT IT 
:JSR RS _DISPST S/R CALL 
:WORD STATADR-. REL ADR OF STATUS DATA 
“DESTROYS RO,R1,R2 
MOV : GET REL DATA ADR 
ADD RBs, Re “MAKE IT ABS 
OV PC RL : SET ry ADR OF REG NAMES IN ASCII 
MOV SDYRECE-YREGS /6, RO :GET # OF REGISTERS 10 DISPLAY 
MOV (R1)+, OVRGMG :MOVE REG NAME TO MSG 
MOV RL +, DVRGMG+2 
TST R1)+ :BYPASS DISP VALUE 
JSR RO SAVREG :SAVE REG’S RO - 
MOV CRO) :GET REG’S STORED VALUE 
SR RS 2BINaSC CONVERT IT TO ASCIT 
“WORD  DVRGDT-. 
JSR RS PRINT :PRINT THE STATUS MSG 
“WORD  DVRGMG-. 
“WORD le. 
ISR RO. RESREG :RESTORE RO - RY 
TST (R2)+ “POINT AT NXT REG VALUE 
DEC RO :DECR REG CNT 
BNE 10 :DONE ALL? (Y,N-10) 
RTS RS -EXIT IN-LINE 
:DISPLAY CURRENT UNIT # 
:JSR PC, DISUNM S/R CALL 
*R3 MUST KANTEIN PROG TSL ADR 
:DESTROYS RO.R1,R2 
MOV #18. ,.DISUML sINIT TC NORM MSG LNTH 
MOVB = PCURDV(R3) RO ; GET CURRENT ant + 
CMP RO, #16. VAL ID UNIT 
BHI DI uty -DISUIV 
JSR RS SBTASLZ :Y AN O18 # TODECIMAL ASCI! 
HOV UNASCI+4, UNASCI :MOVE ASCII # TO 1ST TWO DISITS 
MOV #22. , DISUML ;SET UP ERR COND MSG LNTH 
BIC 77400. RO -RESET HIGH BY 
ISR - JBINASC :CONVERT BINARY TO ASCII 
WORD ASCI-. 
JSR RS, PRINT :G0 ISSUE UNIT # MSG 
WORD UNTTMG- 
WORD 16. 
RTS Pc sEXIT INLINE 















MAQINDEC-11-DTDLA-8 DLi1 DEVICE ROUTIN FOR MPS MACYS1 27(732) 24-SEP-76 14:09 PAGE &-2 
DTDLAB.P1! SUBROUTINES FOR OL11 DEVICE ROUTINE 
326 ;(SSUE MSG TO LIST DEVICE 
zs “Bp See ce 
930 ;.WORD BYTCNT MEG BUTE ENT Cr NEGATIVE, 
$31 RESET PRT DEV DELICATED:} 
932 RQ = - PROG TBL ADR 
933 :R4Y 2 FLAGWORD -- IF NEGATIVE, USE CMND MODE PRINT 
324 ‘Bes aRovs RO,R1,R2 
$36 0415S" O10S00 PRINT: MOV RS. RO ;GET MSG ADR & MAKE IT ABS 
937 OO41E9’ 962500 ADD (R5)+,RO 
938 004!52° 012501 MOV (R5)+-R1 :GET BYTE COUNT 
839 604164" 005704 TST RY USE CMND MODE PRINT? 
940 904166" 100930 BPL 4O$ 40$ 
941 004170’ 010702 MOV PC.Re ‘cer UP LINK INFO ADR 
942 004172’ D62702 900040 ADD #o0$-. ,R2 
943 O04176° 169200 SUB Re,RO” : MAKE NSG ADR QPeL 
944 004200’ 010022 MOV RO? (R2)+ s STOR EM 
945 O04202e" 010112 MOV RI’ (Re) TORE NSG” : eyrE COUNT 
S46 904204" 100001 BPL 108 i T NEG? 10$) 
$47 o04206’ 005412 NEG (Re) ;MAKE IT ‘posttiy 
948 O04210’ 016367 OO00008 OO0144 19%: MOV PASCIN(R3) . PROGNM :STORE PROG’S # IN MSG 
9439 O04216’ 004577 173632 ISR RS, aCLIST LISSUE PROG # 
950 904222" 000136 WORD  PNMMSG-. 
951 O042e4° o00005 “WORD 5 = 
952 004226" 004577 173622 ISR RS, ICLIST s ISSUE MSG SPECIFIED 
953 94232" oo0000 208: WORD XXKX 
954 094234° 900000 “WORD 
965 004236’ 004577 173612 JSR ae. ScLIST sISSUE A <CR> & <LPD 
856 004242" 000202 WORD CRLF F-, 
957 oo4e44’ O0000e2 WORD 
958 04246’ 090410 ERTEX :G0 TO EXIT 
959 oo42s0° 010067 op0010 40$: MOV RO, 50S 'CTORE MSG'S ABS. AOR 
960 o04254" 010167 oD0006 MOV R1.60$ -STORE ITS BYTE C 
961 OO4260° 004577 173566 JSR RS’ QULIST #80 TO MPG TO issue THE MSG 
3% 904264" 000000 SOS: .WORD XXX 
963 004265" 909000 60S: “WORD SKK 
64 094270" 900205 PRTEX: RTS RS sEXIT IN-LINE 
Qe6 
$67 sTEST READ INTERRUPT VECTOR S/R 
969 004272’ 016767 173530 OO00010 TRVECT: MOV TVCTA :GET CURR INT VECT ADR 
970 0904300’ 016346 o00004 MOY PriaoR R3), -(SP) :STORE FLGWD ADR TO IDENTIFY ME 
971 004304’ 004577 173562 JSR RS, aTST 300 I HAVE VECTOR CONTROL? 
$72 904310" O00000 20: WORD XXX ; MPG WILL TELL ME SINCE I CAN'T 
972 904312’ 176146 WORD AOINT- : GET AT LOWER MEM IF MEM MGMT 
$74 004314’ Oo04o1 TRVEXT ‘BR IF I DONT HAVE CONTROL 
975 004316" 005725 TST (RS)+ :BYPASS BR INST IN S/R CALL 
37 004320" 900205 TRVEXT: RTS RS -EXIT IN-LINE 
378 ;TEST WRITE INTERRUPT VECTOR S/R 
$20 904222’ O16767 173500 OO001G TWVECT: MOV IVCTAD, 208 :GET CURR INT VECT ADR 
96; 904230° 062767 Of0094 oD0010 ADD 84, 208 “ADJUST FOR WRITE INT 








SEQ 00S2 























tae KO2 







MAINDEC-11-DTDLA-8 DL11 DEVICE ROUTINE FOR MPG MACYL1 27(732) 24-SEP-76 14:09 PAGE 6-3 SE9 0054 
DTDLAS.P1! SUBROUTINES FOR OL11 DEVICE ROUTINE 

982 904336’ 016346 009004 MOV PEWAOR(R ),-(SP) : STORE “ev ane " IDENTIFY ME 

383 poste, po4e77 7 173524 ISR RS JTSTVEC’ vet ON 

4 604346" O00000 20$: LWORD = XXXX ME SINCE I CAN'T 
3 po4359" ie 720 WORD WRIN NT-. : ET are t WER” MEM TF NEN MGMT 
O4250° 600451 BR TWVEXT !BR IF I DONT HAVE CONTRO 

987 904354" c0S725 TST (RS) ;BYPASS BR INST IN S/R CALL 

23 004356" 600205 TWVEXT: 87S RS !RETURN IN-LINE 

360 


a re + ee ee re eS 


me eee ++ ore ee ee Se ee 


MAINDEC-11-DTOLA-8 
DTDLAS. MESSAGE 


Q oO 
TU + bo 0 0 8 pee 


+ 084130 
os4soe 


* 005015 


041411 
13 
054130 
* 054130 
i 
‘Ol 
* 954130 
 - 
O11 
054130 
054130 
130 


O11 
054130 


COSS22” 


wee ee 





OL11 
STORA 


O42116 
0eS0Se 


042524 
054130 
054130 


047115 


040514 
O4eSee 
047440 


042040 
054130 
035123 


054130 
054130 


051504 


054130 


b BEVIS ROUTINE FOR MPG 


EV 
PNMMSG: . 
: .A 


RENDMG: . 
UNITMG: ; 
UNASCI: ; 
DVRGMG: . 
DVRGDT: ; 


CNTSNG: . 


CMDCMS: . 
RDINMS: .: 


ERCPAR: . 


-AS 
ERCDTA: . 
CNTSEN= . 


DYREND= . 


4 4 


oO 
14 0 tt 


O0N00 
eae ad a a oe ae ee ee Lee ee Le Le ed oe Dee) 


rh 
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MESSAGE STORAGE AREA 





BEX 





/P4/ 

“XX/<«O11> 
/AT_LAST INT: 7 
/CURRENTLY: 7 
“END OF REPCRT/ 


ee a UNIT: / 
/XXXX 

povnad 

SXXXXXX/ 


/BYTES: RD= / 
AXXXXXXXXXXXX WR= / 
AXXXXXXXXAXXX/ 
«015><012> 


{O11>/CMNDS: RD= / 
7XXXXXX WR= 7 

/XXXXXX BRK= / 

/XXXXXX MISC= / 
/XXXXXX/<015><012> 
pa age UPTS: RD= / 


/XXXXXX/<015><O12> 
wna thaes / 







ZXXXXXX/ (1S) (O12) _ 
(O11) DATA ERRORS 
“XXXXXXZ 








BEX 
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‘ICE ROUTINE TABLES 
.SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TASLES 
c ; PROGRAM TASLE FORMAT 
o00=4e PTLGTH= l6e. ;PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
:(PTLGTH= 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 
oo0900 PFLGWD= +0. ;PROGRAM FLAG WORD - 1 WORD 


11-DTDLA-B 
OTDLAB.Pil FORMATS 



























1045 000902 URSTOP= 2 ; 1 = USER HAS STOPPED THIS PROGRAM 

1046 200904 ERSTOP= 4 ; 1 = AN ERROR HAS STOPPED THIS PROGRAM 

1047 000010 WTYIOT= 10 ; 1 = WAITING FOR 1/0 TERM 

1048 000020 CTPRIO= 20 ; 1 = CONSOLE OR PRINTER 1/0 IN PROGRESS 

1049 000040 SETDED= 40 ; 1 = THIS PROG SET THE PRT DEV DEDICATED FLAG 

1950 900100 OCPRES= 100 :; 1 = OBJ CODE IS PRESENT 

10Si 000200 USEUBM= 200 ; 1 = THIS PROG USES THE UNIBUS MAP (MEM MGMNT ONLY) 
10Se2 1000C0 ACTIVE= 100000 ; 1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECUTION) 












1054 oac00e POPSW= +2. ;PROGRAM'S OPERATION SWITCHES - 1 WORD 































1056 100000 STONER= 100000 ; 1 = STOP PROG EXECUTION UPON ERROR 
1057 040000 CYCPRG= 40000 ; 1 = CYCLE PROGRAM (ON CURRENT DEVICE) 
10S8 020900 PRONER= 20000 ; 1 = DO_NOT PRINT ON ERROR 
10S9 010000 BITie= 10000 ; QO = NOT USED 
1069 004000 BIT11= 00 ; O = NOT USED 
1081 002090 CYCOVL= 2000 ; 1 = CYCLE THE DEVICE LIST 
1062 001900 GTNXTD= 1000 ; l= ave ON SAME BEVIGe UPON ERROR 
1063 000400 DOERCK= 400 ; 1 = DON’T DO ERROR CHECKING 
1064 000200 SPOPER= 200 ; 1 = DEVICE SPECIAL OPERATION 
CeS 000100 BIT6é= 00 ; O = NOT ee 
i066 000040 DOIOT= 40 ; 1 = DQ NOT PERFORM I/0 TIMEOUT 
1067 000020 AUTORP= 20 ; 1 = DO_NOT a DISPLAY COUNTS 
1068 009010 AURPEP= 10 ; 1 = AUTO DISPLAY COUNTS AT END OF FINAL PASS ONLY 
1065 000004 HSKPEP= 4 ; 1 = HOUSEKEEP COUNTS ONLY AT RUN COMMAND 
1070 009092 PFBBOV= 2 ; 1 = PRINT FIRST BAD BYTE ONLY ON VERIFY 
1 000001 NOCOMP= 1 ; 1 = DO NOT PRINT PROG COMPLETED MSG 
1973 ocooo4 PFWADR= +4. ;*;PROGRAM FLAGWORD ADDRESS - 1 WORD 
hk O0000& PASCIN= +6. ;PROGRAM’S NUMBER IN ASCII - 1 WORD 
0 
thao 000010 PNAME= +8. ;PROGRAM’S NAME IN ASCII - & BYTES 
He 000016 PROIOA= +14. ;ADDRESS OF READ I/O AREA - 1 WORD 
nee 000029 PWRIOA= +16. ;ADDRESS OF WRITE I/O ARER - 1 WORD 

4 
ines o00C2e PSRCST= +18. ;SOURCE STATEMENTS START ADDRESS - 1 WORD 











1085 900024 POBJST= +20. ;OBJECT CODE START ADDRESS - 1 WORD 
000026 PLNGTH= +22. ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
009930 PTOCNT= +24. 31/0 TIMECUT COUNT - 1 WORD 











MAINDEC-11-DTDLA-B Ll 
TOLAB.P FORMATS FOR PRI 


000032 


> + b= b 0 bb = 0 BB = 0 Bb Bs 0 0 2 Bs 2 2 bs bb + = + Be bs Bo 8 0 0 be pe 
0+ 0 0 b= 0 = 0 0 = 0 0 + 0 2 0 = 8 0 8 8 + 0 be CD 

2 WII OI WI WWII WI LI GITUPUPUMUMUTUNMD MUPU NU OO IOOOOOOWwWwWW 
LW OO W0 NOUNS Ol OWONIMO UTE OM -OWDO NIMOUN GIT 9.00 NOUN Oot OWwW@Mo-~)0" 





oo0034 
oco03s 
000036 
poogss 
poooen 
oooose 
oo0064 
lalate 
o00070 
oo0072 
ogoo74 
090076 
000190 
o00102 
o90104 
p00106 
000110 
oca112 
000114 
o0o11s 
000126 
coo122 
o00124 
000126 
oo0222 
o00236 


PTEMO= 
PTEMI= 
PTEM2= 
PTEM3= 
PTEMY= 
PTEMS= 
PTEM6= 
PTEM7= 
PTEM8= 
PTEMS= 


PTEM1O= 
PTEM11= 
PTEM12= 
PTEMi3= 
PTEMLY= 
PTEM1S= 


PNSR= 
PSRC= 
POST= 


PSTKCT= 
PSTKSV= 
PSVREG- 
PUSRPC= 


MPS 


+26. 
+28. 
+29. 
+30. 
+46. 
+48. 
+50. 


+146. 
+158. 





UTINE FOR MACYL1 27(732) 
& BEV IEE ROUTINE TABLES 


PMOLCD= 
PDPNTR= 
PCURDV= 
PDNUMS= 


PROGRAM" 


PROGRAM 


PROGRAM 
PROGRAI‘ 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
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;DEV ROUT MODEL # CODE - 1 WORD 
;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
;CURRENT DEVICE # - 1 BYTE 
;DEVICE NUMBERS - 16 BYTES 
;USER PROGRAM 
;USER 
;USER 
;USER 
;USER 
; USER 
; USER 
; USER 
; USER 
; USER 
; USER 
>USER 
;USER 
; USER 
; USER 
;USER 
;NUMBER OF BYTES TO TRANSFER ON 
;DATA SOURCE ADDRESS ON MOVE (SRO) - 1 WORD 

;DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 
;# OF WORDS (X 2) SAVED OFF STACK - 1 
;STACK WORDS STORAGE AREA - 30 WORDS 
;USER'S RO THRU RS REGISTERS STORAGE AREA - & WORDS 
:USER’S CURRENT PROGRAM COUNTER - 1 WORD 


TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 
TEMPORARY STORAGE 


— _— — — 


— — ~ — _ = -— 


— 











WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 


MOVE (NBR) - 1 WORD 





WORD 








BO3 


MACYL1 2° 732) 


TRELES 


ta 
iM 


tee -€ beat 


sresvere ss 


' 


sven 
ito 


o~- 


+0 -*0-+0 #0 +08 +8 ee ee 


ee eee ee ee 
ee ee ed 
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(PROIOX THRU FUBMGP) ARE ONLY IN MEM MGMNT VES 


:18/22 BIT ABSOLUTE ADDRESS OF READ 1-0 ARER - 2 Wi 


! 
se 


SIT VIRTUAL ADDRESS OF READ 1/0 ARER - 2 
. 318-2e BIT ABSOLUTE ADORESS OF WRITE 1/0 AREA - 2 WORDS. 


318 BIT VIRTUAL ADORESS OF WRITE 1/0 AREA - 2 WORDS: 


. ; STORAGE AREA FOR USER'S PAR’S O THRU 7 - 8 WORDS) 
RAGE AREA FOR USER’S POR'S 0 THRU 7 - 8 WORDS: 


. :iS7 UNIBUS MAP REG @ AND 8 OF REGS USED - i WORD? 


cre, 


MEM MGMNT ONLY ENTRIES 


;PRCGRAM TABLE SIZE 


. ;PROGRAM TABLE SIZE 


“o 
TOP CP COP CRO CO crear urvarias ‘ 


(non HEU & Gates “Cn0OC 


—— -2e— — =~... 


sEND OF PROG 


coal el 
-'. 
-_ 





IN BYTES - 1 WORD - NON MEM MGMNT 
IN SYTES - 1 WORD - MEM MGMNT VE 
AM TABLE - NON MEM MGMNT VES 


UF PROGRAM THELE - NE 





a rm + ~~ 
g™. & 
PY ae ‘ow + 


<->. 
-3 3-3-9 
Putaan 


*b-+0-* 0 0-0 +8 +6 


"0 +b +0 +8 


20-20 0 60 0 $0 bd 80-9 d #0 200+ ooh oh op ope 
° 


*o 
2020-2 b 60 +6 66-9 pop +p pepe 


*0 <0 +8 +0 +0 +0 «6 +6 +0 +6- 
“6 


“6 
TAVIAVIATIAVIAVIAVIANIANIAVIANIAVIAVIANIAN bed) 


+h +8 +0 eh od +8 


7 ee 


*> 0 +C 00 DC 00 OC PC OC OC OO OC be ibatde dd LOO O.o.oOMmMomwun nim 3-3° 3° 
[CLOUD UE GOS CDE RULE Lone tbe MUTE Cohen Crager be 


“os 
Caneune 


oo 


“o> 


TAVIARIAVIANIAVIANIAUIALIAUIANIAUIATIALLAT 


TAVIANIAUIAUI ARI ARIAUI AR 


en eee eee ee ee ee ee ee ee ee 
“0 +e «0-09 «8 
“POP UTE. GOP Ch O00 SOTO 


5 


mmm ae 


AA 


we a 


wwww ow 


PARAS: 3 
wewwecd 


PAA: 
wewwe 5 


mm meme 
~wwwew 


wee eS 
eww ww 


ee ee 


wewwe 
resere- 


7 ange 
~eeweww 


ICE ROUTINE 
RAY $ DEVICE ROUT 


ORTLTH= 
devasze 
DEVFWO= 
DEVINIs 
DEVIN2= 
DEVIW3= 
DEVIWS4= 
DEVIWS= 
DEVIwé= 
DEVIW7= 
DEVIW8= 


DEVORA= 


CEVIVa= ’ 


DEVEPS= 
DEVWES= 


DRKEADS 


DEVDER= 


FOR MP 
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DEVICE ROUTINE TABLE 


sDEVICE ROUTINE TABLE LENGTH 


;DEVICE ROUTINE SIZE IN SYTES - 1 WORD 
;CEVICE ROUTINE FLAGWORD - 1 WORD 

;DEVICE INTERFACE WORD 8 1 WORD 
;DEVICE INTERFACE WORD - 1 WORD 
l 
I 


- 


fu 


8 
;DEVICE INTERFACE WORD 8 WOSD 
;DEVICE INTERFACE WORD 8 WORD 
;DEVICE INTERFACE WORD 8 S - 1 WORD 
;DEVICE INTERFACE WORD 8 & - | WORD 
sCEVICE INTERFACE WORD #@ 7 - 1 WORD (SIZE) 
;DEVICE INTERFACE WORD 8 § - 1 WORD (ERR) 
;OEVICE REGISTERS ADDRESS - 1 WORD 
;DEVICE INTERRUPT VECTOR ADDRESS - | WORD 


:DEVICE READ PROCESSORS STATUS WORD (SUS SEQ) - : WORD 


DEVICE WRITE PROC STATUS WORD (BUS REG) - 1 HORD 


;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY AOR - 1 WORD 


sDEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 
;DEVICE ROUT KILL ROUTINE REL ENTRY ACR - 1 WORD 
;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 
;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WO 
:DEVICE 1/0 BUSY SRANCH ADDRESS (CIOBSY) - 1 WORD 
;DEVICE ERROR SRANCH ADDRESS (CUPGER? - 1 WORD 
;USER MODE PRINT BRANCH ADDSESS (ULIST) - 1 WORD 
;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
;CONVERT BINARY TO ASCII BR ADR (BINASC) - 2 WORD 


sCONVERT BINARY TO OECIMAL ASCII BSR ADR .STASLZ) - : 


a eee es ww ee ee 








eee oo i oe 
e:) » 5 
— “ess oe ‘ 


a 
-Cstue-C 2.0 


CopCereerterGertetentes 


+0 20-+9-<0 «9-9 <5 
4. FB ie ih wuruty 


0 +0 po 
. 4: 
*CO.00D)° WI 


‘Gates 


“6 
DFU UaG eter er aeeatentes 


a ee eee eee 


11 DEVICE ROUTINE FOR 
ERS“ORSSRAN & DEVISE ROU 


OVPOTA= 
DVSFWD= 
OVSVEC= 
OvCvEC= 
OVTVEC= 
DVRINT= 
DVGETS= 
OVPUTS= 
DEVSTP= 
DEVETPs 
OVPTEPS 


DVVTEPs 


TINE TRE 
+50. 
+52. 
+54. 
+Sé. 
+58. 


+60. 





DOS 
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:CONVERT PACKED DECIMAL TC ASCII BR ADR (CECASC) - 1 WORD 


:MPG SYSTEM FLAGWORD ADDRESS <CSYSFW) - 1 WORD 
:SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 WORD 
;CLEAR INTERRUPT VECTOR SR ADR (CLRVEC) - 1 WORD 
; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 
;RETURN FROM INTERRUPT BR ADR (RTNINT; - 1 WORD 
;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 

;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 
;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WCSD 
;PACK TABLE EXTEN. REL POINTER - 1 WORD 

; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 
;COMPILER TEL EXTEN. REL POINTER - i WORD 
sDEVICE INTERFACE WORD SYMBOL TBL SEL PCINTER - | 


sEND OF DEVICE ROUTINE TABLE 








MAINDEC=11-D70 
PL 


O40 
eErhee OO131eR 


SETVES OCOUSSR 
Size O90220R 
se =".000908 
SPOPER= 000200 
SROSSY OOLI7YR 
STMNES 003634R 
STMNT =3 4ER 
= 0050e2 

. ABS. 900990 
RFRANNSA 

cu | EES 


ERRORS DETECTED: 


SEFALLT GLOBALS G 


iS eeslieeeeneetinetincneinentinettinedtieeteastietinatieetneatt 


rable DEVICE ROUTINE FOR MPG MACYI1 e7(732) e4-SEP-76 14: 


Dp 
oy 


STMNUM O03644R 
TONER= 100090 
STSTAT OO372 


2 ,DTDLAB/NL: 009 
IME: 3 7 


eee eee ee 


USEUBM= 000200 
USMTPS= 000002 
ODR 


WRCNT  OOOBEER 
WRINMS CO4672R 
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Om OcndomIo 
On O.0200009 
furu frurofruror 





ype 








GO3 


Spoc run ¢ ; | dg, 3 dis’ writes, Jl_pag 


~ : 


re Be 


- + ee PCC eee. @ 


+... an. Oe. #3. Ps kk ee ote : 
JU ARR PIII III UU UU UU UU UU 


5 a ain al > i ain ain a > ret 
00/00 888,8 pee emeerPe SIS SII seyH4H! Y4SSSSOSE > > 
a a on oe @ ef . . . , ; 
INOODODOODOUDOOOOOUOUOODOL eluate ANOODOOOOUOOUOUOOOUON zu 


pooosoca ili 3333333334444444444 S66666666667777 


a SSS 


Pad 
JUUUUUU 











oo (Fee 
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o-e— Cee 
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Me = Toe 
foe More 
me Gore 
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fe Uru 


